Imports pixolut.BizBlox

Public Class Food
    Inherits DataObject


'START BizBlox Generated Code : Do not remove or alter this comment
'Last Updated : Tuesday, 24 August 2004 4:01:21 PM
'BizBlox Version : 0.9.1.22818
#Region "BizBlox Generated Code"

    Public Shadows Enum Columns
        FoodID
        Name
        Price
    End Enum

    Public Overrides Function TableName() As String
        Return "Food"
    End Function

    Public Sub New()
        MyBase.New()
    End Sub

    Public Sub New(ByVal uid As Guid)
        MyBase.New(uid)
    End Sub


    Private m_FoodID As System.Guid
    Public Property FoodID() As System.Guid
        Get
            Return m_FoodID
        End Get
        Set(ByVal Value As System.Guid)
            Me.touch()
            m_FoodID = Value
        End Set
    End Property

    Private m_Name As System.String
    Public Property Name() As System.String
        Get
            Return m_Name
        End Get
        Set(ByVal Value As System.String)
            Me.touch()
            Me.BoundsCheck(Columns.Name, Value , 50)
            m_Name = Value
        End Set
    End Property

    Private m_Price As System.Double
    Public Property Price() As System.Double
        Get
            Return m_Price
        End Get
        Set(ByVal Value As System.Double)
            Me.touch()
            m_Price = Value
        End Set
    End Property
#End Region
'END BizBlox Generated Code : Do not remove or alter this comment

End Class




